﻿Imports System.Data.SqlClient
Imports System.Configuration

Public Class frmAction
    Public ActionType As String = ""
    Public CreditCard As String = ""

    Private Sub btnSO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSO.Click
        ActionType = "17"
    End Sub

    Private Sub btnDO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDO.Click
        ActionType = "15"
    End Sub

    Private Sub btnAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAR.Click
        ActionType = "13"
    End Sub

    Private Sub btnARPayment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnARPayment.Click
        ActionType = "1324"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ActionType = "1324xx"
    End Sub
End Class